10 REM**LAZY MATH
20 REM**JOHN L.EUBANKS
40 REM**PINEVILLE,LOUISIANA 71360
50 REM**11/10/84
55 REM**LOAD "LAZY",8
60 REM**CALCULATES AREA,PERIMETER AND    CIRCUMFERENCE
65 REM***
68 PRINT"[147]":POKE53280,11:POKE53281,11
70 PRINT"                LAZY MATH"
72 PRINT"                    BY "
74 PRINT"              JOHN L EUBANKS[159]"
75 FORY=1TO1500:NEXTY:PRINT"[147]"
77 REM***INSTRUCTIONS
80 PRINT"USE THIS TIME SAVER WHEN YOU"
82 PRINT"NEED TO CALCULATE THE AREA OF A"
84 PRINT"SQUARE, A RECTANGLE OR A CIRCLE"
88 PRINT"YOU CAN ALSO CALCULATE "
90 PRINT"THE PERIMETER OF A SQUARE AND A"
92 PRINT"RECTANGLE AS WELL AS THE"
94 PRINT"CIRCUMFERENCE OF A CIRCLE"
96 PRINT"LAZY MATH WILL EVEN REMEMBER "
98 PRINT"THE FORMULAS FOR YOU AND DO THE WORK!"
140 PRINT"PRESS THE '*' KEY FOR THE MENU"
145 GET Z$:IFZ$<>"*"THEN145
150 PRINT"[147]"
153 PRINT"[158]**************MENU**************"
155 REM**MENU WITH BRANCHED CHOICES
158 PRINT"[159]"
160 PRINT "KEY # 1 FOR AREA OF SQUARE"
170 PRINT "KEY # 2 FOR AREA OF RECTANGLE"
180 PRINT "KEY # 3 FOR AREA OF CIRCLE"
185 PRINT"[158]########################################"
190 PRINT "KEY # 4 FOR PERIMETER OF SQUARE"
200 PRINT "KEY # 5 FOR PERIMETER OF RECTANGLE"
210 PRINT "KEY # 6 FOR CIRCUMFERENCE OF A CIRCLE"
215 PRINT "KEY # 7 TO  EXIT TO LOADSTAR"
220 PRINT"PRESS THE KEY # OF YOUR CHOICE"
230 PRINT"[159]"
235 GETP$:IFP$=""THEN235
237 P=VAL(P$):IFP<1ORP>7THEN235
240 ON P GOTO 300,400,500,600,700,800,10000
290 REM**CALCULATE AREA OF SQUARE
300 PRINT"[147]":PRINT"AREA = SIDE SQUARED":PRINT
310 INPUT"ENTER THE LENGTH OF A SIDE";S
315 PRINT"WHAT UNIT OF MEASUREMENT--INCHES,ETC?"
318 INPUT M$
320 SA=S*S:SA=(INT(100*(SA+.005)))/100
325 PRINT"[147]"
330 PRINT"THE AREA OF YOUR SQUARE WITH SIDES "
340 PRINT"OF ";S;M$;" IS"
345 PRINTSA;"SQUARE ";M$:PRINT"[159]"
350 GOTO 1000
390 REM**CALCULATE AREA OF RECTANGLE
400 PRINT"[147]":PRINT"AREA=BASE * HEIGHT"
405 PRINT
410 INPUT"ENTER THE HEIGHT (SHORT SIDE)";H
420 INPUT"ENTER THE BASE (LONG SIDE)";B
425 PRINT"WHAT UNIT OF MEASUREMENT--FEET,ETC?"
427 INPUT M$
430 RA=B*H:RA=(INT(100*(RA+.005)))/100
440 PRINT"[147]"
450 PRINT"THE AREA OF YOUR RECTANGLE WITH A"
460 PRINT"HEIGHT OF ";H;M$
462 PRINT"AND A BASE OF ";B;M$
464 PRINT"IS ";RA;"SQUARE ";M$:PRINT"[159]"
470 GOTO1000
490 REM**CALCULATE AREA OF CIRCLE
500 PRINT"[147]":PRINT"AREA = PI * RADIUS SQUARED":PRINT
505 PRINT"REMEMBER THAT RADIUS IS 1/2 THE DIAMETER OF THE CIRCLE"
507 PRINT"AND DIAMETER IS THE DISTANCE ACROSS"
510 INPUT"ENTER THE RADIUS OF YOUR CIRCLE";R
515 PRINT"WHAT UNIT OF MEASUREMENT--YARDS,ETC?"
517 INPUT M$
520 CA=(R^2)*3.1416:CA=(INT(100*(CA+.005)))/100
530 PRINT"[147]"
540 PRINT"THE AREA OF YOUR CIRCLE WITH A"
550 PRINT"RADIUS OF ";R;M$
552 PRINT"IS ";CA;M$:PRINT"[159]"
560 GOTO1000
590 REM**CALCULATE PERIMETER OF SQUARE
600 PRINT"[147]":PRINT"PERIMETER =LENGTH OF SIDE * 4":PRINT
610 INPUT"ENTER THE LENGTH OF ANY SIDE";SS
615 PRINT"WHAT UNIT OF MEASUREMENT--INCHES,ETC?"
617 INPUT M$
620 SP=SS*4:SP=(INT(100*(SP+.005)))/100
625 PRINT"[147]"
630 PRINT"THE PERIMETER OF YOUR SQUARE "
640 PRINT"WITH SIDES OF";SS;M$
645 PRINT"[158]IS ";SP;M$:PRINT"[159]"
650 GOTO1000
690 REM**CALCULATE THE PERIMETER OF A RECTANGLE
700 PRINT"[147]":PRINT"PERIMETER OF A RECTANGLE IS P=BASE*2 +    HEIGHT*2"
710 INPUT"ENTER THE BASE (LONG SIDE)";BB
720 INPUT"ENTER THE HEIGHT (SHORT SIDE)";HH
725 PRINT"WHAT UNIT OF MEASUREMENT--FEET,ETC.?"
727 INPUT M$
730 RP=(HH*2)+(BB*2):RP=(INT(100*(RP+.005)))/100
735 PRINT"[147]"
740 PRINT"THE PERIMETER OF YOUR RECTANGLE WITH A"
750 PRINT"HEIGHT OF";HH;M$
752 PRINT"AND A BASE OF ";BB;M$
755 PRINT"[158]IS ";RP;M$:PRINT"[159]"
760 GOTO1000
790 REM**CALCULATE CIRCUMFERENCE OF A CIRCLE
800 PRINT"[147]":PRINT"C=PI*DIAMETER":PRINT
810 PRINT"DIAMETER IS THE DISTANCE ACROSS"
820 PRINT
830 INPUT"ENTER THE DIAMETER OF YOUR CIRCLE";D
835 PRINT"WHAT UNIT OF MEASUREMENT--INCHES,ETC?"
837 INPUT M$
840 CC=D*3.1416:CC=(INT(100*(CC+.005)))/100
850 PRINT"[147]"
860 PRINT"THE CIRCUMFERENCE OF YOUR CIRCLE WITH"
870 PRINT"A DIAMETER OF";D;M$
875 PRINT"[158]IS ";CC;M$:PRINT"[159]"
880 GOTO 1000
1000 PRINT"WHEN YOU ARE READY TO RETURN"
1010 PRINT"TO THE MENU, PRESS THE '*' KEY"
1020 GETT$:IFT$<>"*"THEN1020
1030 GOTO150
10000 PRINT"[147]":PRINT"ARE YOU SURE THAT YOU WANT TO QUIT?"
10010 PRINT"IF YOU ANSWER 'Y'"
10020 PRINT"YOU WILL EXIT TO LOADSTAR "
10030 PRINT"[158]ANSWER 'Y' OR 'N'"
10040 INPUT Q$
10050 IF Q$="N"THEN 150
10060 IF Q$="Y" THEN 63000
10070 GOTO10000
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END